home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / ma11 / ma.bas < prev    next >
BASIC Source File  |  1995-05-08  |  4KB  |  132 lines
  1. Declare Function LocalInfo Lib "toolhelp.dll" (p As Any, ByVal h As Integer) As Integer
  2. Declare Function LocalFirst Lib "toolhelp.dll" (p As Any, ByVal h As Integer) As Integer
  3. Declare Function LocalNext Lib "toolhelp.dll" (p As Any) As Integer
  4. Declare Function ClassFirst Lib "toolhelp.dll" (p As Any) As Integer
  5. Declare Function ClassNext Lib "toolhelp.dll" (p As Any) As Integer
  6. Declare Function TaskFirst Lib "toolhelp.dll" (p As Any) As Integer
  7. Declare Function TaskNext Lib "toolhelp.dll" (p As Any) As Integer
  8. Declare Function ModuleFirst Lib "toolhelp.dll" (p As Any) As Integer
  9. Declare Function ModuleNext Lib "toolhelp.dll" (p As Any) As Integer
  10. Declare Function GlobalFirst Lib "toolhelp.dll" (p As Any, ByVal w As Integer) As Integer
  11. Declare Function GlobalNext Lib "toolhelp.dll" (p As Any, ByVal w As Integer) As Integer
  12. Declare Function MemManInfo Lib "toolhelp.dll" (p As Any) As Integer
  13. Declare Function SendMessage Lib "user.exe" (ByVal h As Integer, ByVal m As Integer, ByVal w As Integer, ByVal l As Long) As Long
  14. Declare Function getFocus Lib "user.exe" () As Integer
  15. Declare Function GlobalDOSAlloc Lib "kernel" (ByVal dw&) As Long
  16. Declare Function GlobalDosFree Lib "kernel" (ByVal s%) As Integer
  17.  
  18. Global Const MAX_CLASSNAME = 256
  19. Global Const MAX_MODULE_NAME = 10
  20. Global Const MAX_PATH = 256
  21.  
  22. Global Const GLOBAL_ALL = 0
  23. Global Const GLOBAL_LRU = 1
  24. Global Const GLOBAL_FREE = 2
  25.  
  26. Global Const LF_FIXED = 1
  27. Global Const LF_FREE = 2
  28. Global Const LF_MOVEABLE = 4
  29.  
  30. Global Const GT_UNKNOWN = 0
  31. Global Const GT_DGROUP = 1
  32. Global Const GT_DATA = 2
  33. Global Const GT_CODE = 3
  34. Global Const GT_TASK = 4
  35. Global Const GT_RESOURCE = 5
  36. Global Const GT_MODULE = 6
  37. Global Const GT_FREE = 7
  38. Global Const GT_INTERNAL = 8
  39. Global Const GT_SENTINEL = 9
  40. Global Const GT_BURGERMASTER = 10
  41.  
  42. Type sCLASSENTRY
  43.   dwSize As Long
  44.   hInst As Integer
  45.   szClassName As String * MAX_CLASSNAME
  46.   wNext As Integer
  47. End Type
  48.  
  49. Type sLOCALINFO
  50.   dwSize As Long
  51.   wcItems As Integer
  52. End Type
  53.  
  54. Type sLOCALENTRY
  55.   dwSize As Long
  56.   hHandle As Integer
  57.   wAddress As Integer
  58.   wSize As Integer
  59.   wFlags As Integer
  60.   wcLock As Integer
  61.   wType As Integer
  62.   hHeap As Integer
  63.   wHeapType As Integer
  64.   wNext As Integer
  65. End Type
  66.  
  67. Type sTASKENTRY
  68.   dwSize As Long
  69.   hTask As Integer
  70.   hTaskParent As Integer
  71.   hInst As Integer
  72.   hModule As Integer
  73.   wSS As Integer
  74.   wSP As Integer
  75.   wStackTop As Integer
  76.   wStackMinimum As Integer
  77.   wStackBottom As Integer
  78.   wcEvents As Integer
  79.   hQueue As Integer
  80.   szModule As String * MAX_MODULE_NAME
  81.   wPSPOffset As Integer
  82.   hNext As Integer
  83. End Type
  84.  
  85. Type sMODULEENTRY
  86.   dwSize As Long
  87.   szModule As String * MAX_MODULE_NAME
  88.   hModule As Integer
  89.   wUsageFlags As Integer
  90.   szExePath As String * MAX_PATH
  91.   wNext As Integer
  92. End Type
  93.  
  94. Type sGLOBALENTRY
  95.   dwSize As Long
  96.   dwAddress As Long
  97.   dwBlockSize As Long
  98.   hBlock As Integer
  99.   wcLock As Integer
  100.   wcPageLock As Integer
  101.   wFlags As Integer
  102.   wHeapPresent As Integer
  103.   hOwner As Integer
  104.   wType As Integer
  105.   wData As Integer
  106.   dwNext As Long
  107.   dwNextAlt As Long
  108. End Type
  109.  
  110. Type sMEMMANINFO
  111.   dwSize As Long
  112.   dwLargestFreeBlock As Long
  113.   dwMaxPagesAvailable As Long
  114.   dwMaxPagesLockable As Long
  115.   dwTotalLinearSpace As Long
  116.   dwTotalUnlockedPages As Long
  117.   dwFreePages As Long
  118.   dwTotalPages As Long
  119.   dwFreeLinearSpace As Long
  120.   dwSwapFilePages As Long
  121.   wPageSize As Integer
  122. End Type
  123.  
  124. Global Const WM_USER = 1024
  125. Global Const LB_RESETCONTENT = WM_USER + 5
  126. Global Const WM_SETREDRAW = &HB
  127.  
  128. Global Const MAX_DOSALLOCS = 200
  129. Global hTMList As Integer
  130. Global ahDosMem(0 To MAX_DOSALLOCS) As Integer
  131.  
  132.